﻿Public Class DisplayStyle
    Private intModuleID As Integer
    Private intDisplayStyleID As Integer
    Private strDisplayStyle As String
    Private strDisplayStyleNotes As String

    Public Property ModuleID As Integer
        Get
            Try
                Return intModuleID
            Catch ex As Exception
                '
                'TODO: Error Handling
                '
                Return 0
            End Try
        End Get
        Set(value As Integer)
            Try
                intModuleID = value
            Catch ex As Exception
                '
                'TODO: Error Handling
                '
            End Try
        End Set
    End Property

    Public Property DisplayStyleID As Integer
        Get
            Try
                Return intDisplayStyleID
            Catch ex As Exception
                '
                'TODO: Error Handling
                '
                Return 0
            End Try
        End Get
        Set(value As Integer)
            Try
                intDisplayStyleID = value
            Catch ex As Exception
                '
                'TODO: Error Handling
                '
            End Try
        End Set
    End Property

    Public Property ItemID As Integer
        Get
            Try
                Return intDisplayStyleID
            Catch ex As Exception
                '
                'TODO: Error Handling
                '
                Return 0
            End Try
        End Get
        Set(value As Integer)
            Try
                intDisplayStyleID = value
            Catch ex As Exception
                '
                'TODO: Error Handling
                '
            End Try
        End Set
    End Property

    Public Property DisplayStyle As String
        Get
            Try
                Return Trim(strDisplayStyle)
            Catch ex As Exception
                '
                'TODO: Error Handling
                '
                Return ""
            End Try
        End Get
        Set(value As String)
            Try
                strDisplayStyle = Trim(value)
            Catch ex As Exception
                '
                'TODO: Error Handling
                '
            End Try
        End Set
    End Property

    Public Property DisplayStyleNotes As String
        Get
            Try
                Return strDisplayStyleNotes
            Catch ex As Exception
                '
                'TODO: Error Handling
                '
                Return ""
            End Try
        End Get
        Set(value As String)
            Try
                strDisplayStyleNotes = value
            Catch ex As Exception
                '
                'TODO: Error Handling
                '
            End Try
        End Set
    End Property
End Class
